home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
prog
/
xlisp21.zip
/
FACT.LSP
next >
Wrap
Lisp/Scheme
|
1988-02-12
|
77b
|
4 lines
(defun fact (n)
(cond ((= n 1) 1)
(t (* n (fact (- n 1))))))